home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / vernon.zip / XVAL.PAS < prev   
Pascal/Delphi Source File  |  1989-02-23  |  260b  |  12 lines
  1.  
  2.      { This function calculates the portion of sin(x) that is
  3.        X raised to the (2i + 1) power}
  4.  
  5.      function Xval  (  x: real ;  i : integer) : real;
  6.          begin
  7.              Xval :=
  8.              power( x, (2*i + 1))
  9.              end;
  10.  
  11.  
  12.